home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / Grafik / Paint / Perfectpaint / rexx / bridge / Manual.rx next >
Encoding:
Text File  |  1999-12-03  |  3.1 KB  |  254 lines
  1. /*     Manual */
  2.  
  3.     options results
  4.     parse ARG Port Ptr M0 M1 M2 M3 M4 M5 M6 b
  5.     
  6.     ADDRESS value Port
  7.  
  8.     pp_GetWidth
  9.     W=result;W2=W/2-1
  10.  
  11.     if W=0 then EXIT
  12.  
  13.     pp_GetHeight
  14.     H=result;H2=H/2-1
  15.  
  16. IF Ptr=1|Ptr=2 then DO
  17.     IF M0=1|M0=2 THEN DO
  18.         X=M1;Y=M2;R=M3
  19.     END
  20.     ELSE
  21.     DO
  22.         X=W2
  23.         Y=H2
  24.         IF W>H THEN DO
  25.             R=H2
  26.         END
  27.         ELSE
  28.         DO
  29.             R=W2
  30.         END
  31.     END
  32.  
  33.     pp_DialogInit 150 100 "*Circle*" 3
  34.         pp_Integer 0 60 5 50 16 "X" 1 X
  35.         pp_Integer 1 60 25 50 16 "Y" 1 Y
  36.         pp_Integer 2 60 50 50 16 "Radius" 1 R
  37.     pp_Dialog
  38.     rc=result
  39.     if rc=0 then
  40.         do
  41.             EXIT
  42.         end    
  43.  
  44.     pp_UpdateUndo    
  45.         
  46.     pp_GetDialog 0
  47.     X=result
  48.  
  49.     pp_GetDialog 1
  50.     Y=result
  51.  
  52.     pp_GetDialog 2
  53.     R=result
  54.  
  55.     if Ptr=1 then DO
  56.         pp_Circle X Y R
  57.     END
  58.     ELSE
  59.     DO
  60.         pp_CircleF X Y R
  61.     END
  62. END
  63.  
  64. IF Ptr=12|Ptr=13 then DO
  65.     IF M0=12|M0=13 THEN DO
  66.         X=M1;Y=M2;R=M3;R2=M4
  67.     END
  68.     ELSE
  69.     DO
  70.         X=W2
  71.         Y=H2
  72.         R=W2
  73.         R2=H2
  74.     END
  75.  
  76.     pp_DialogInit 150 125 "*Ellipse*" 4
  77.         pp_Integer 0 60 5 50 16 "X" 1 X
  78.         pp_Integer 1 60 25 50 16 "Y" 1 Y
  79.         pp_Integer 2 60 50 50 16 "RadiusX" 1 R
  80.         pp_Integer 3 60 70 50 16 "RadiusY" 1 R2        
  81.     pp_Dialog
  82.     rc=result
  83.     if rc=0 then
  84.         do
  85.             EXIT
  86.         end        
  87.         
  88.     pp_UpdateUndo    
  89.  
  90.     pp_GetDialog 0
  91.     X=result
  92.  
  93.     pp_GetDialog 1
  94.     Y=result
  95.  
  96.     pp_GetDialog 2
  97.     R=result
  98.  
  99.     pp_GetDialog 3
  100.     R2=result
  101.  
  102.     if Ptr=12 then DO
  103.         pp_Ellipse X Y R R2
  104.     END
  105.     ELSE
  106.     DO
  107.         pp_EllipseF X Y R R2
  108.     END
  109. END
  110.  
  111. IF Ptr=3|Ptr=4 then DO
  112.     IF M0=3|M0=4 THEN DO
  113.         X=M1;Y=M2;XX=M3;YY=M4
  114.     END
  115.     ELSE
  116.     DO
  117.         X=0
  118.         Y=0
  119.         XX=W-1
  120.         YY=H-1
  121.     END
  122.  
  123.     pp_DialogInit 150 125 "*Box*" 4
  124.         pp_Integer 0 60 5 50 16 "Start*X" 1 X
  125.         pp_Integer 1 60 25 50 16 "Start*Y" 1 Y
  126.         pp_Integer 2 60 50 50 16 "End*X" 1 XX
  127.         pp_Integer 3 60 70 50 16 "End*Y" 1 YY        
  128.     pp_Dialog
  129.     rc=result
  130.     if rc=0 then
  131.         do
  132.             EXIT
  133.         end        
  134.         
  135.     pp_UpdateUndo    
  136.  
  137.     pp_GetDialog 0
  138.     X=result
  139.  
  140.     pp_GetDialog 1
  141.     Y=result
  142.  
  143.     pp_GetDialog 2
  144.     XX=result
  145.  
  146.     pp_GetDialog 3
  147.     YY=result
  148.  
  149.     if Ptr=3 then DO
  150.         pp_Box X Y XX YY
  151.     END
  152.     ELSE
  153.     DO
  154.         pp_BoxF X Y XX YY
  155.     END
  156. END
  157.  
  158. IF Ptr=6|Ptr=7 then DO
  159.     IF M0=6|M0=7 THEN DO
  160.         X=M1;Y=M2;XX=M3;YY=M4;XXX=M5;YYY=M6
  161.     END
  162.     ELSE
  163.     DO
  164.         X=0
  165.         Y=0
  166.         XX=W-1
  167.         YY=0
  168.         XXX=W2
  169.         YYY=H-1
  170.     END
  171.  
  172.     pp_DialogInit 150 175 "*Spline*" 6
  173.         pp_Integer 0 60 5 50 16 "Start*X" 1 X
  174.         pp_Integer 1 60 25 50 16 "Start*Y" 1 Y
  175.         pp_Integer 2 60 50 50 16 "End*X" 1 XX
  176.         pp_Integer 3 60 70 50 16 "End*Y" 1 YY        
  177.         pp_Integer 4 60 95 50 16 "MX" 1 XXX
  178.         pp_Integer 5 60 115 50 16 "MY" 1 YYY    
  179.     pp_Dialog
  180.     rc=result
  181.     if rc=0 then
  182.         do
  183.             EXIT
  184.         end        
  185.         
  186.     pp_UpdateUndo    
  187.  
  188.     pp_GetDialog 0
  189.     X=result
  190.  
  191.     pp_GetDialog 1
  192.     Y=result
  193.  
  194.     pp_GetDialog 2
  195.     XX=result
  196.  
  197.     pp_GetDialog 3
  198.     YY=result
  199.  
  200.     pp_GetDialog 4
  201.     XXX=result
  202.  
  203.     pp_GetDialog 5
  204.     YYY=result
  205.  
  206.     if Ptr=6 then DO
  207.         pp_Spline X Y XX YY XXX YYY
  208.     END
  209.     ELSE
  210.     DO
  211.         pp_SplineF X Y XX YY XXX YYY
  212.     END
  213. END
  214.  
  215. IF Ptr=5 then DO
  216.     IF M0=5 THEN DO
  217.         X=M1;Y=M2;XX=M3;YY=M4
  218.     END
  219.     ELSE
  220.     DO
  221.         X=0
  222.         Y=0
  223.         XX=W-1
  224.         YY=H-1
  225.     END
  226.  
  227.     pp_DialogInit 150 125 "*Line*" 4
  228.         pp_Integer 0 60 5 50 16 "Start*X" 1 X
  229.         pp_Integer 1 60 25 50 16 "Start*Y" 1 Y
  230.         pp_Integer 2 60 50 50 16 "End*X" 1 XX
  231.         pp_Integer 3 60 70 50 16 "End*Y" 1 YY        
  232.     pp_Dialog
  233.     rc=result
  234.     if rc=0 then
  235.         do
  236.             EXIT
  237.         end        
  238.         
  239.     pp_UpdateUndo    
  240.  
  241.     pp_GetDialog 0
  242.     X=result
  243.  
  244.     pp_GetDialog 1
  245.     Y=result
  246.  
  247.     pp_GetDialog 2
  248.     XX=result
  249.  
  250.     pp_GetDialog 3
  251.     YY=result
  252.  
  253.     pp_Line X Y XX YY
  254. END